home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / cvs / contrib / sccs2rcs < prev    next >
Text File  |  2005-10-16  |  9KB  |  315 lines
  1. #! no -f
  2. #
  3. # Sccs2rcs is a script to convert an existing SCCS
  4. # history into an RCS history without losing any of
  5. # the information contained therein.
  6. # It has been tested under the following OS's:
  7. #     SunOS 3.5, 4.0.3, 4.1
  8. #     Ultrix-32 2.0, 3.1
  9. #
  10. # Things to note:
  11. #   + It will NOT delete or alter your ./SCCS history under any circumstances.
  12. #
  13. #   + Run in a directory where ./SCCS exists and where you can
  14. #       create ./RCS
  15. #
  16. #   + /usr/local/bin is put in front of the default path.
  17. #     (SCCS under Ultrix is set-uid sccs, bad bad bad, so
  18. #     /usr/local/bin/sccs here fixes that)
  19. #
  20. #   + Date, time, author, comments, branches, are all preserved.
  21. #
  22. #   + If a command fails somewhere in the middle, it bombs with
  23. #     a message -- remove what it's done so far and try again.
  24. #         "rm -rf RCS; sccs unedit `sccs tell`; sccs clean"
  25. #     There is no recovery and exit is far from graceful.
  26. #     If a particular module is hanging you up, consider
  27. #     doing it separately; move it from the current area so that
  28. #     the next run will have a better chance or working.
  29. #     Also (for the brave only) you might consider hacking
  30. #     the s-file for simpler problems:  I've successfully changed
  31. #     the date of a delta to be in sync, then run "sccs admin -z"
  32. #     on the thing.
  33. #
  34. #   + After everything finishes, ./SCCS will be moved to ./old-SCCS.
  35. #
  36. # This file may be copied, processed, hacked, mutilated, and
  37. # even destroyed as long as you don't tell anyone you wrote it.
  38. #
  39. # Ken Cox
  40. # Viewlogic Systems, Inc.
  41. # kenstir@viewlogic.com
  42. # ...!harvard!cg-atla!viewlog!kenstir
  43. #
  44. # Various hacks made by Brian Berliner before inclusion in CVS contrib area.
  45. #
  46. # Modified to detect SCCS binary files. If binary, skip the keyword
  47. # substitution and flag the RCS file as binary (using rcs -i -kb).
  48. #      -Allan G. Schrum schrum@ofsoptics.com agschrum@mindspring.com
  49. # Fri Sep 26 10:40:40 EDT 2003
  50. #
  51.  
  52.  
  53. #we'll assume the user set up the path correctly
  54. # for the Pmax, /usr/ucb/sccs is suid sccs, what a pain
  55. #   /usr/local/bin/sccs should override /usr/ucb/sccs there
  56. set path = (/usr/local/bin $path)
  57.  
  58.  
  59. ############################################################
  60. # Error checking
  61. #
  62. if (! -w .) then
  63.     echo "Error: ./ not writeable by you."
  64.     exit 1
  65. endif
  66. if (! -d SCCS) then
  67.     echo "Error: ./SCCS directory not found."
  68.     exit 1
  69. endif
  70. set edits = (`sccs tell`)
  71. if ($#edits) then
  72.     echo "Error: $#edits file(s) out for edit...clean up before converting."
  73.     exit 1
  74. endif
  75. if (-d RCS) then
  76.     echo "Warning: RCS directory exists"
  77.     if (`ls -a RCS | wc -l` > 2) then
  78.         echo "Error: RCS directory not empty"
  79.         exit 1
  80.     endif
  81. else
  82.     mkdir RCS
  83. endif
  84.  
  85. sccs clean
  86.  
  87. set logfile = /tmp/sccs2rcs_$$_log
  88. rm -f $logfile
  89. set tmpfile = /tmp/sccs2rcs_$$_tmp
  90. rm -f $tmpfile
  91. set emptyfile = /tmp/sccs2rcs_$$_empty
  92. echo -n "" > $emptyfile
  93. set initialfile = /tmp/sccs2rcs_$$_init
  94. echo "Initial revision" > $initialfile
  95. set sedfile = /tmp/sccs2rcs_$$_sed
  96. rm -f $sedfile
  97. set revfile = /tmp/sccs2rcs_$$_rev
  98. rm -f $revfile
  99.  
  100. # the quotes surround the dollar signs to fool RCS when I check in this script
  101. set sccs_keywords = (\
  102.     '%W%[     ]*%G%'\
  103.     '%W%[     ]*%E%'\
  104.     '%W%'\
  105.     '%Z%%M%[     ]*%I%[     ]*%G%'\
  106.     '%Z%%M%[     ]*%I%[     ]*%E%'\
  107.     '%M%[     ]*%I%[     ]*%G%'\
  108.     '%M%[     ]*%I%[     ]*%E%'\
  109.     '%M%'\
  110.     '%I%'\
  111.     '%G%'\
  112.     '%E%'\
  113.     '%U%')
  114. set rcs_keywords = (\
  115.     '$'Id'$'\
  116.     '$'Id'$'\
  117.     '$'Id'$'\
  118.     '$'SunId'$'\
  119.     '$'SunId'$'\
  120.     '$'Id'$'\
  121.     '$'Id'$'\
  122.     '$'RCSfile'$'\
  123.     '$'Revision'$'\
  124.     '$'Date'$'\
  125.     '$'Date'$'\
  126.     '')
  127.  
  128.  
  129. ############################################################
  130. # Get some answers from user
  131. #
  132. echo ""
  133. echo "Do you want to be prompted for a description of each"
  134. echo "file as it is checked in to RCS initially?"
  135. echo -n "(y=prompt for description, n=null description) [y] ?"
  136. set ans = $<
  137. if ((_$ans == _) || (_$ans == _y) || (_$ans == _Y)) then
  138.     set nodesc = 0
  139. else
  140.     set nodesc = 1
  141. endif
  142. echo ""
  143. echo "The default keyword substitutions are as follows and are"
  144. echo "applied in the order specified:"
  145. set i = 1
  146. while ($i <= $#sccs_keywords)
  147. #    echo '    '\"$sccs_keywords[$i]\"'    ==>    '\"$rcs_keywords[$i]\"
  148.     echo "    $sccs_keywords[$i]    ==>    $rcs_keywords[$i]"
  149.     @ i = $i + 1
  150. end
  151. echo ""
  152. echo -n "Do you want to change them [n] ?"
  153. set ans = $<
  154. if ((_$ans != _) && (_$ans != _n) && (_$ans != _N)) then
  155.     echo "You can't always get what you want."
  156.     echo "Edit this script file and change the variables:"
  157.     echo '    $sccs_keywords'
  158.     echo '    $rcs_keywords'
  159. else
  160.     echo "good idea."
  161. endif
  162.  
  163. # create the sed script
  164. set i = 1
  165. while ($i <= $#sccs_keywords)
  166.     echo "s,$sccs_keywords[$i],$rcs_keywords[$i],g" >> $sedfile
  167.     @ i = $i + 1
  168. end
  169.  
  170. onintr ERROR
  171.  
  172. sort -k 1,1 /dev/null >& /dev/null
  173. if ($status == 0) then
  174.     set sort_each_field = '-k 1 -k 2 -k 3 -k 4 -k 5 -k 6 -k 7 -k 8 -k 9'
  175. else
  176.     set sort_each_field = '+0 +1 +2 +3 +4 +5 +6 +7 +8'
  177. endif
  178.  
  179. ############################################################
  180. # Loop over every s-file in SCCS dir
  181. #
  182. foreach sfile (SCCS/s.*)
  183.     # get rid of the "s." at the beginning of the name
  184.     set file = `echo $sfile:t | sed -e "s/^..//"`
  185.  
  186.     # work on each rev of that file in ascending order
  187.     set firsttime = 1
  188.  
  189.     # Only scan the file up to the "I" keyword, then see if
  190.     # the "f" keyword is set to binary. The SCCS file has
  191.     # <ctrl>-aI denoting the start of the file (or end of header).
  192.     set binary = (`sed -e '/^.I/,$d' < $sfile | grep '^.f e 1$'`)
  193.     #if ($#binary) then
  194.     #    echo This is a binary file
  195.     #else
  196.     #    echo This is not a binary file
  197.     #endif
  198.  
  199.     sccs prs $file | grep "^D " | gawk '{print $2}' | sed -e 's/\./ /g' | sort -n -u $sort_each_field | sed -e 's/ /./g' > $revfile
  200.     foreach rev (`cat $revfile`)
  201.         if ($status != 0) goto ERROR
  202.  
  203.         # get file into current dir and get stats
  204.  
  205.     # Is the substr stuff and the +0 in the following awk script really
  206.     # necessary?  It seems to me that if we didn't find the date format
  207.     # we expected in the output we have other problems.
  208.     # Note: Solaris awk does not like the following line. Use gawk
  209.     # mawk, or nawk instead.
  210.     set date = `sccs prs -r$rev $file | gawk '/^D / {print (substr($3,0,2)+0<70?20:19) $3, $4; exit}'`
  211.         set author = `sccs prs -r$rev $file | gawk '/^D / {print $5; exit}'`
  212.         echo ""
  213.         echo "==> file $file, rev=$rev, date=$date, author=$author"
  214.         sccs edit -r$rev $file >>& $logfile
  215.         if ($status != 0) goto ERROR
  216.         echo checked out of SCCS
  217.  
  218.         # add RCS keywords in place of SCCS keywords (only if not binary)
  219.         if ($#binary == 0) then
  220.             sed -f $sedfile $file > $tmpfile
  221.             if ($status != 0) goto ERROR
  222.             echo performed keyword substitutions
  223.             cp $tmpfile $file
  224.         endif
  225.  
  226.         # check file into RCS
  227.         if ($firsttime) then
  228.             set firsttime = 0
  229.  
  230.             if ($#binary) then
  231.                 echo this is a binary file
  232.                 # Mark initial, empty file as binary
  233.                 rcs -i -kb -t$emptyfile $file
  234.             endif
  235.  
  236.             if ($nodesc) then
  237.         echo about to do ci
  238.                 echo ci -f -r$rev -d"$date" -w$author -t$emptyfile $file 
  239.                 ci -f -r$rev -d"$date" -w$author -t$emptyfile $file < $initialfile >>& $logfile
  240.                 if ($status != 0) goto ERROR
  241.                 echo initial rev checked into RCS without description
  242.             else
  243.                 echo ""
  244.                 echo Enter a brief description of the file $file \(end w/ Ctrl-D\):
  245.                 cat > $tmpfile
  246.                 ci -f -r$rev -d"$date" -w$author -t$tmpfile $file < $initialfile >>& $logfile
  247.                 if ($status != 0) goto ERROR
  248.                 echo initial rev checked into RCS
  249.             endif
  250.         else
  251.             # get RCS lock
  252.         set lckrev = `echo $rev | sed -e 's/\.[0-9]*$//'`
  253.         if ("$lckrev" =~ [0-9]*.*) then
  254.         # need to lock the brach -- it is OK if the lock fails
  255.         rcs -l$lckrev $file >>& $logfile
  256.         else
  257.         # need to lock the trunk -- must succeed
  258.                 rcs -l $file >>& $logfile
  259.                 if ($status != 0) goto ERROR
  260.         endif
  261.             echo got lock
  262.             sccs prs -r$rev $file | grep "." > $tmpfile
  263.             # it's OK if grep fails here and gives status == 1
  264.             # put the delta message in $tmpfile
  265.             ed $tmpfile >>& $logfile <<EOF
  266. /COMMENTS
  267. 1,.d
  268. w
  269. q
  270. EOF
  271.             ci -f -r$rev -d"$date" -w$author $file < $tmpfile >>& $logfile
  272.             if ($status != 0) goto ERROR
  273.             echo checked into RCS
  274.         endif
  275.         sccs unedit $file >>& $logfile
  276.         if ($status != 0) goto ERROR
  277.     end
  278.     rm -f $file
  279. end
  280.  
  281.  
  282. ############################################################
  283. # Clean up
  284. #
  285. echo cleaning up...
  286. mv SCCS old-SCCS
  287. rm -f $tmpfile $emptyfile $initialfile $sedfile
  288. echo ===================================================
  289. echo "       Conversion Completed Successfully"
  290. echo ""
  291. echo "         SCCS history now in old-SCCS/"
  292. echo ===================================================
  293. set exitval = 0
  294. goto cleanup
  295.  
  296. ERROR:
  297. foreach f (`sccs tell`)
  298.     sccs unedit $f
  299. end
  300. echo ""
  301. echo ""
  302. echo Danger\!  Danger\!
  303. echo Some command exited with a non-zero exit status.
  304. echo Log file exists in $logfile.
  305. echo ""
  306. echo Incomplete history in ./RCS -- remove it
  307. echo Original unchanged history in ./SCCS
  308. set exitval = 1
  309.  
  310. cleanup:
  311. # leave log file
  312. rm -f $tmpfile $emptyfile $initialfile $sedfile $revfile
  313.  
  314. exit $exitval
  315.